home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / GWU Demos / screen.ads < prev    next >
Encoding:
Text File  |  1994-01-09  |  716 b   |  30 lines  |  [TEXT/GADA]
  1. PACKAGE Screen IS
  2.  
  3. -- Procedures for drawing pictures on ANSI Terminal Screen
  4. -- Michael B. Feldman, The George Washington University
  5.  
  6.   ScreenHeight : CONSTANT Integer := 24;
  7.   ScreenWidth : CONSTANT Integer := 80;
  8.  
  9.   SUBTYPE Height IS Integer RANGE 1..ScreenHeight;
  10.   SUBTYPE Width  IS Integer RANGE 1..ScreenWidth;
  11.  
  12.   TYPE Position IS RECORD
  13.     Row   : Height := 1;
  14.     Column: Width := 1;
  15.   END RECORD;
  16.  
  17.   PROCEDURE Beep; 
  18.   -- Pre:  none
  19.   -- Post: the terminal beeps once
  20.   
  21.   PROCEDURE ClearScreen; 
  22.   -- Pre:  none
  23.   -- Post: the terminal screen is cleared
  24.   
  25.   PROCEDURE MoveCursor (To: IN Position);
  26.   -- Pre:  To is defined
  27.   -- Post: the terminal cursor is moved to the given position
  28.   
  29. END Screen;   
  30.